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14-Sep-1 DT.SRCIK atsYRooui. (1 | 
et 001 0 RTITLE "EDISKEYFMTSTR = translate a key string’ | 
3 § Oe MODULE EDTSKEYFMTSTR ( ' Translote > Pog A cing 
; ? BR? jDENT = 'v04-000' Fi EYF R.BLI Edit: JBS1026 
Ps: ¢ 005 1 BEGIN 
: ? 0007 : leneuenacenaneeanensrenerensneenrecereeerecrerereetenenenenneennnenenernentes j 
3 it ® } 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
s; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. e 
; 1 Bot) : i; ALL RIGHTS RESERVED. * 
P ; e 
3 ig $O18 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 
4 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH it AND WITH THE a 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 Bog 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 is Bots : :* TRANSFERRED. * 
; .* % 
3 20 0020 1 !* phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ boss : :* CORPORATION. * 
3 if — 
; 24 boSe 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
; «£ 0026 1 !«* . 
oar 0027 1 !* * 
s $8 Bose : ‘einen sneer aan tad aniline nec lin 
; $0 $080 1 
: $ 0031 1 !+4+¢ 
: § i , FACILITY: EDT -=- The DEC Standard Editor 
: 34 0034 1 | ABSTRACT: | 
3 $2 0035 1! 
; 6 0036 1! Translate a key string. 
a By 0037 1! 
g Hs sis ! : ENVIRONMENT: Runs at any access mode - AST reentrant 
; 40 0040 i AUTHOR: Bob Kushlis, CREATION DATE: April 7, 1979 
> 42 0042 1 | MODIFIED BY: | 
3; 643 0043 1! | 
: «6446 044 1 ! 1-001 = Original. DJS 24-Feb-1981. This module yes created by 
; rf Re? ! extracting routine COM_STRING from module KEYT 
> 47 047 1 ! 1-002. DiS 26-Feb-1981. Handling of prompt following ? in a ke | 
3s 648 0048 1! definition modified to allow double quotes as well as single 
; «649 0049 1! quotes to enclose a prenet age tring 
; & 050 1 ! 1-003 - Regular ize headers. 9-Ma Hy 1981 
5 51 051 1! i-kee =f - T_ADV, T_BACK and T_RESET. JBS ar yee 
3 26 O26 1 | 1-005 = Add return"value Tor end of Journal file. JBS 02-Oct-1981 
- § 0535 1! 1-006 - Add an additional terminator when prompt is ?*, é78° 51-Oct-1981 
;. 054 1 ! 1-007 - If terminator of search string bes} ns with adv or back then insert 
3 5 055 1! this and throw away rest of key def settten, STS 16-N | ade 
; 6 026 1! 1-8 8 - Revise the call to turn on autorepeat. 30-Jan-198 
: 7 057 1 ! 1-009 = Remove an unused external reference. yes 9-Jun-1982 
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; 8 1 ! 1-010 = Modif 

; : y message output. SMB 30-Jun-198 

Py ' - = 

i ia } ; 1 te Ade coggtting gegren string and set Firectten forward to RESET. 

: 061 1 ! 1-012 = Only erase the last Line on 

; a reset. =Jul-19 

; 6¢ Oo¢ : } 1 18 - Change the string match call. JBS ig-Jut-13 iSkin 

2 Bet} i yore - Catch errors in prompt string. STS 03-Aug-19 

; Bere 1 i toa - Position cursor after error message. STS 10-Aug-19 

; ae 1-818 : pre implementation of defined keys. JBS 1 “Aon 1985 

; g068 i be) Goa A in recognizing ADV and BACK. JBS 16-Aug-1982 | 
pe 2 a Eas fee el he tastes “ser santas ow oe ener | 
e ! = = ° _ . | 
; $? ied ! 1-3 9 . peneve external declaration of EDTSSFMT_LIT, not used. JBS 05-Oct-1982 

; a + Ma ie be {3 ae ange the cursor positioning call, to Sbsolete a module. JBS 05-Oct-1982 

cs 9071 1 1-0 é = use partial matching for ADV and BACK. JBS 14-Dec-1982 

ee. Borg i os me whole text of a terminator to a prompt, if it starts with 

; 14 a ee RAs ace This is for compatibility with EDT version 2. JBS 15-Dec-1982 | 
rs + a = TAB ag YOO Boe Se reg Lenerene. and treat a cancelled command the same 

8 it : } 3 ; . yi WPS support under a conditional. JBS 10-Feb-1983 

rs Bom 1 ies Ow unprompted input, for compatibility with EDT version 2. JBS 01-Apr-1983 

; 0079 #1 
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18 sH USBTTL "EDTSSTRN_KSTR = translate a key string’ | 
0 GLOBAL ROUTINE EDTSSTRN_KSTR ( ! Translate a key string 
1 691 . ! Key number 
¢ O36 EXPAND, ' 1 = do pronet ing 
69 ECHO ! 1 = echo characters 
4 694 = 
5 bee 
pL 
‘ +244 FUNCTIONAL DESCRIPTION: 
9 0699 This routine processes the translation string of a _ piecing the 
0 00 characters in the buffer. If a ‘?' is seen, and the EXPAND parameter 
1 01 s 1, then the user is prompted for input which replaces the '?" and 
. 8¢ the prompt string in the buffer. 
¢ Be FORMAL PARAMETERS: 
54 K The number of the key to translate. 
, EXPAND Flag indicating ? should be expanded. 
ECHO Flag indicating that the characters should be echoed. 


EDTS$G_MESSAGE_LINE 
EDT$$G_CS_LNO 
EDT$$G_CUR_COL 
EDTS$A~SEL —BUF 
EDT$$T_CMD BUF 
EDTS$$A~CUR-BUF 
EDT$$G_T1 7 


$$G"T1 TYP 
EDT$$G_~TIN_ECHOPOS 
IMPLICIT OUTPUTS: 
EDTSSA_CMD_BUF 
EDT$SA~CMD~END 
EDT$$G_TIN~ECHOPOS 
EDT$$G~TIN~ECHOFLG 
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1 
§ 0 = definition did not end wits a period baie . 
1 = key was null or translation was successful and definition ended with period 

4 or translation was cancelled 

5 2 = end of journal file 
: ; SIDE EFFECTS: 
9 39 NONE 
0 40 
1 41 - 
$B 

74 BEGIN 

4 744 
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$4000 EDTSSTRN_KSTR = translate a key string 12280-1382 99:33:33 YEDT SREIKEYFATSTR:BL I: . (3) | 
; 175 745 cxTeae, ROUTINE 
3 178 res EDTSS$SC_ERATOEOL, 
. ae 74 EDTSSMSG_BELL, 
; 178 be EDTSSOUT_M 
; (17 74 EDTS$SC_REVID, 
; 180 7 9 EDTS$SC_NONREVID, 
; «(181 7 EDTSSOUT_FMTBUF, 
3; Y ; 7 § EDTSSKPAD_INP, ! Auxiliary call to EDTS$TI_RDCMDLN 
: 1 7 EDTSSPUT_CMDCH : NOVALUE i Put a character in the command buffer 
4 754 EDT$S$SC_POSCSIF : NOVALUE, i Position the cursor 
; «185 755 EDTSSTI_ENBLAUTREP, ! Enable or disable autorepeat 
: 199 7 $ EDTSSTI_INPCH, 
3s 4 7 EDTSSTI_ DEL 
; «4188 758 EDTS$TST_KEYOEF, ' See if a key is defined as a particular string 
; «189 759 EDTSSF IND_KEY; ! Find the definition of a key 
PR Sema 
3 136 Or6e EDT $$G_MESSAGE_LINE, ! Message Line is this + 1 
; #19 076 EDT$$G_CS_LNO, ! Line on which the cursor is positioned 
: 194 0764 EDT$$G_CUR_COL, ! Column on which the cursor is positioned. 
; «4195 0765 EDTSSA_SEL_BUF, ! Buffer in which the mark resides 
: 196 0766 EDTSST_CMD_BUF, ! Command buffer 
; 197 0767 EDTSSA_CMD_BUF, ! Pointer to next char in command buffer 
; 198 0768 EDTSSA_CMD_END, ! Pointer to end of info in command buffer 
; I 3768 EDTSSA_CUR_BUF, ! Pointer to current text buffer TBCB 
: 200 770 EDTS$G_TI_TyP, ! terminal type 
: 201 0771 EDT$$G_TIN_ECHOFLG, ' Was a character echoed? 
3 4 14a EDTS$$G_TIN_ECHOPOS, ! The position on the echo Line. 
: 3 48, EDT$$G_DIR_MOD, ! the current direction 
; 05 L 0775 IF SUPPORT _WPS 
; 207 0777 EDTSSG_DFLT_VERB, ! the current default mode 
BB wn 
3 a9 4 EDT$$G_SEA_STRLEN; ! Length of the current search string 
; lg 0788 LOCAL 
3 1 7 
> 214 a TERM 
3 215 0785 ALT TERM, 
> 216 07 6 TRAR_POINT, 
— ar ? TRAN_END, 
3 18 th 4 KEY_PTR : REF BLOCK C, BYTE) FIELD (KEY_DEF_FIELD); 
: 220 790 2 !+ 
3 i : Check for a key that is null. | 
; 79 
: 4 O73 IF ( NOT EDTSSFIND_KEY (.K, KEY_PTR)) | 
; 5 0795 THEN 
3 § 7 BEGIN 
: 79 EDTS$A_CMD_END = CHSPTR (.EDTSSA_CMD_BUF); 
: as RETURN (1)3 
: $9R 4 END; 
; 231 B01 | 
| 
j 
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EDTSSIRN. KSTR = translate a key string ~8ep-1984 99: $3: 33 EDT. SRCIJK ast R.BLI; sh (33 
; § ! Look for the string RESET, which is handled specially. | 
; , 2 | 
; 5 5 I tetiee eteees (.K, UPLIT (BYTE ("RESET')), 5, 0) | 
; ; 7 3 BEGIN | 
; 33 03 ; Reset was seen. Flush the buffer, and undo the select range. 
: 261 nh ; EDTSSA_CMD_BUF = CHSPTR (EDT$ST_CMD_BUF); 
; r Hh) EDTSSA_CMD_END = CHSPTR (EDTSST_ ~CMD_BUF ) ; | 
: 264 Bi, IF (.ECHO) | 
: 245 815 3 THEN 
3 6 peg 4 EGIN 
; & 081 4 EDTSS$SC “Eeatoton - ee MESSAGE_LINE + 1, 0); ! Erase key definition 
: 248 0818 4 EDTS$SC-ERAT 
H 49 0819 4 EDTSSOUT_ PATOUrS 0); 
; 250 0820 END; 
; 251 0821 
; 3¢ L 08 ; X1F SUPPORT_wWPS 
$ 5 be ZTHEN 
; 254 824 EDTSS$G_DFLT_VERB = VERB_K_MOVE; ! reset mode to move 
3 ri + 5 XFI 
: 257 08 $ EDT$$G_DIR_MOD = DIR_FORWARD; ! reset direction to forward 
; 258 0828 EDTSSA_SEL_BUF = 0; ! There is no more select buffer 
; 259 0829 RETURN (1); 
: re 08 ? 3 
: 26 OB ¢ git 
; v4 4 _Get a pointer to the end of the translation string. 
: 265 bB3s TRAN _POINT = KEY_PTR CKEY_DEF_TEXTI; 
; 266 O836 TRAN. “END = CHSPTR (.TRAN_POINT, .KEY_PTR CKEY_DEF_LENJ); 
: 267 083 TERM = 0; 
; 268 0838 '¢ 
: 269 0839 ! Loop through the string. | s 
: 270 840 '- f 
3 71 841 E 
; g Bese WHILE CHSPTR_LSS (.TRAN_POINT, .TRAN_END) DO : 
; 74 0844 IF ((CHSRCHAR (.TRAN_POINT) EQL %C°?") AND .EXPAND) ' 
3 Le ae? THEN ( 
: 6 Bee i Character is ? and expand is on. 
; 278 a8 !- 
; e79 $3 BEGIN 
: 281 531 LOCAL 
; 5S 6 QUOTE ' Character tol loving ? 
; a 85 P_ADDR, ' Address of prompt. 
; 54 STATUS, ! for status of kpad_ inp routine 
3 5 2? LEN; ! Length of prompt. 
; 5 TRAN_POINT = CHSPLUS (.TRAN_POINT, 1); 
; 288 58 '¢ 
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104-000 EDTSSTRN_KSTR = translate a key string 14-Sep-19 6 99:33:33 EDT LSRCIKEVFATSTR:BL I: a (3) 
; 14 28 ; } Look for a second ?, in which case it is literal. 
: 291 1 Se 
: 4 o¢ 4 IF (CHSRCHAR (.TRAN_POINT) EQL %C'?") 
: 294 0 4 EDTSSPUT_CMDCH (CHSRCHAR_A (TRAN_POINT), .ECHO) 
: GS 5 “4 ELSE 
: 3 6 $6 i Expand the ?. 
; 298 868 + 
MBE BEL 0 
; 7 
; 301 eri 4 ¢ ; - 
: 4 0378 ? i See if it's the special prompt which takes a CR. 
: 304 0874 4 
3 05 0875 5 IF (CHSRCHAR (.TRAN_POINT) EQL %C‘*') 
; 306 0876 4 THEN 
: 307 0877 5 BEGIN 
; 308 0878 5 TRAN_POINT = CHSPLUS (.TRAN_POINT, 1); ! point to the next char 
; 310 bean : ALT_TERM = ASC_K_CR; ! set up an alternative terminator of CR 
; 312 te ¢ 0s ALT_TERM = ASC_K_ESC ! oth i just st t 
$ = ; ! otherwise we just stop at esca 
: 38 oB8s ° lin oe ee begun: 
H 14 0884 4 !+ 
: 1? tH 2 Look for a quote mark following to start the prompt. 
: 317 0887 4 QUOTE = CHSRCHAR (.TRAN_POINT); 
; 318 0888 4 
: 19 0889 5 IF ((. QUOTE EQL %C°***) OR (.QUOTE EQL %C°''')) 
: 320 0890 4 THEN 
: 321 0891 5 BEGIN 
3 $§ 0892 5 !+ 
3 ae 0893 5 ! Get the entire prompt string. 
: 324 0894 !- 
3 25 0895 TRAN_POINT = CHSPLUS (.TRAN_POINT, 1); 
: $$ 943 : P_ADBR = .TRAN_POINT; 
: 328 0898 5 WHILE (CHSPTR_GTR (.TRAN_END, .TRAN_POINT) AND (CHSRCHAR_A (TRAN_POINT) NEQ .QUOTE)) DO 
3 $2 0899 5 P_LEN = .P_LEN + 1; 
3 0 0900 5 
5 31 901 4 END; 
: 338 #08 ar 
3 ¢ ope ? Position the cursor and put out the prompt. 
; 336 0906 4 EDTSSOUT_MSG (.EDTS$G_MESSAGE_LINE, 0, .P_ADDR, .P_LEN); 
3 bith 4 EDTSS$TI_ENBLAUTREP (13; 
; 8 4 EDT$$G_TIN_ECHOPOS = .EDTS$$G_TIN_ECHOPOS + .P_LEN; 
: es 2 ‘i EDT$$G_TIN_ECHOFLG = 1; 
: ale ? : Now, read up to the next escape character. 
; 913 4 
: bor ? IF (EDTSSTI_INPCH (C) EQL 0) THEN RETURN (2); 


8 

EDTSK DISKEYFMTSTR = translate a key strin 1b-se 1984 00:43:4 AX-11 Bliss-32 V4.0-74 Page 8 

4 DISSTRN_KSTR = translate a key string 1 ~300n 138% 99:53:33 YET SREIKETFATSYR OL 14 . (3) | 

; 916 ‘ STATUS = EDTSSKPAD_INP (.C, .ALT_TERM, TERM); | ; 
: 318 4 IF (STATUS EQL 2) THEN RETURN (2); | : 
; 920 5 IF (.STATUS EQL 0) | ; 
3 9 ¢ 4 !+ : 
: 2 7 : Command was canceled, flush the buffer and return 1. : 
; 925 5 BEGIN | ; 
; 926 EDTSS$SC_NONREVID (); | : 
; i § IF (.EDT$$G_CS_LNO GEQ 0) THEN EDTSSSC_POSCSIF (.EDT$$G_CS_LNO, .EDT$$G_CUR_COL); | 
; 930 3 EDTSSA_CMD_BUF = CHSPTR (EDTS$$T_CMD_BUF); : 
; 931 EDT$SA_CMD-END = CHSPTR (EDT$$T—CMD~BUF); ; 
3 a36 5 RETURN (1); 3 
; 3 4 4 ‘ | 
: 935 4 !+ : 
3 936 4 ! Do a positioning sequence to left column so that we know 3 
3 it HA ? the command has been seen. : 
: 0939 4 EDTSS$SC_POSCSIF (.EDTS$G_MESSAGE_LINE, 0); | : 
; 0940 4 EDTSSOUT_FMTBUF (); 3 
; 941 4 END | 
; 3 END ; 
3 0944 ELSE : 
: 0945 EDTSSPUT_CMDCH (CHSRCHAR_A (TRAN_POINT), .ECHO); : 
O94? 3 1 Pome: 
; 0948 i If the translation ended with a period, then remove it from the ; 
3 0949 ! buffer and return a one, otherwise, return a 0. 3 
: 384 o981 3 
: 38 095¢ IF (CHSRCHAR (CHSPTR (.EDTS$A_CMD_BUF, -1)) EQL %C'.") : 
; 38 095 THEN 3 
: «384 0954 BEGIN 3 
; 85 0995 EDT$SA_CMD_BUF = CHSPTR (.EDTS$SA_CMD_BUF, -1); : 
; 387 0957 IF .ECHO THEN EDTSSTI_DELK (CHSRCHAR (.EDTSSA_CMD_BUF)); ; 
: 39 $985 1+ | ; 
; 390 $980 i If the terminator of input was advance or backup, then throw it into the buffer F 
; 391 0961 ! so we can implement the KED feature of hitting advance or backup after a search : 
: 4 3494 ' string. For compatibility with EDT version 2, any key whose definition starts 3 
3; 439 096 ! with ADV is considered an advance key, and ony key whose definition starts with 3 
: Be gece : BACK is considered a backup key. The entire text of the definition is inserted. : 
; 9 ; | : 
3 9 367 4 IF CEDTSSTST_KEYDEF (. TERM, UPLIT (BYTE (*ADV')), 3, 1) OR ' 3 
F 98 968 4 EDTSSTSTIKEYDEF ({ TERM, UPLIT (BYTE ("BACK')S, 4, 1)) ; 
; 400 390 EDTSSTRN_KSTR (.TERM, .EXPAND, .ECHO); ; | r 
: 602 972 EDTSSA_CMD_END = CHSPTR (.EDTSSA_CMD_BUF); ; 
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973 RETURN (1); 

974 END; 

975 

376 RETURN (0); 
097 END; 
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! of routine EDTSSTRN_KSTR 
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EDTSKEYFMTSTR EDTSKEY yp STR = translate a key strin 16-Sep-1984 43:4 AX-11 is 4. 
tet EDTSSTRN.KSTR ~- translate a key string bee tiae ts VAR He ey SMe rr Pe Seats ial 
6A 68 9E 0004 MOVAB EDTSST_CMD_BUF, EDT$S$A_CMD_END 3 0812 : 
18 oc AC 3 Af BLBC ECHO 2§ ; 0814 ; 
4: D4 2 CLRL_ <=(SPS : 0817 ; 
B C1 ADDL3 #1, EDT$$G_MESSAGE_LINE, -(SP) : ; 
00000006 ; FB 0005 CALLS #2, EDT$S$SC_POSCSIF : ; 
9900006 FB 9 CALLS #0, EDT$$SC~ERATOEOL ; 0818 ; 
0 0 FB CALLS @# EDTS$OUT FMTBUF : 081 ; 
000000006 D4 E 2$: CLRL EDT$$G_DFLT_VERB > 0824 ; 
000000006 00 1 00 00074 MOVL = #1 goTSs6_ BIR_MOD + 0827 : 
000000006 00 ps 0078 CLRL Epis A_SEL~BUF : 0828 ; 
0146 31 00081 BRW $ + 0829 ; 
5 6 0 00 4 3$ MOVL  KEY_PTR, R > 0835 ; 
. AO 9E 7 MOVAB 7(RO), TRAN POINT : ; 
5 6 Ag 9A 00088 MOVZBL 6(RO), TRAN-END + 0836 ; 
55 52 CO 0008F ADDL2  TRAN_POINT, TRAN_END : : 
AE D4 0009¢ CLRL. = TERM” : 0837 : 
55 52 (01 9009 4$ CMPL §- TRAN_POINT, TRAN_END + 0842 F 
03 1F 00098 BLSSU5$ ; : 
00E0 31 OO9A BRW 19$ : : 
3F 6¢ 1 00090 5$: CMPB  (TRAN_POINT), #63 + 0844 : 
03 13 000A0 BEQL © 7$ F ; 
00c8 31 000A2 6$: BRW 17$ : : 
F9 08 AC €E9 000AS 7$: BLBC EXPAND, 6$ ; F 
3 D6 000A9 INCL TRAN POINT : 0857 : 
3F 62 91 000AB CMPB = (TRAN_POINT), #63 > 0862 ; 
Ee 13 000A BEQL 6$ : : 
53 D4 0008 CLRL P_LEN 3; 0870 3 
2A 62 91 0008 CMPB = (TRAN_POINT), #42 > 0875 ; 
07 12 9008 BNEQ : : 
52 06 00087 INCL POINT : 0878 : 
56 0D DO 00089 MOVL a3, “ALT_TERM + 0879 : 
03 11 9908¢ BRB 9$ : 0875 F 
56 1B 00 OOOBE 8$: MOVL #27, ERM : 0882 : 
50 $2 9A 000C1 9S: MOV ZBL CiRin POINT QUOTE > 0887 ; 
27 50 D1 000C4 CMPL QUOTE, #39 + 0889 ; 
05 13 000C7 BEQL si : : 
22 50 01 990¢9 CMPL QUOTE. #34 : ; 
16 12 000CC BNEG 12$ : 
5 06 d0cE 10$: INCL  TRAN_POINT + 0895 
51 52 D0 0000 MOVL | TRAN-POINT, P_ADDR + 0896 
52 55 0100003 11$: | CMPL =s TRANTEND, TRAN_POINT : 0898 
0c 1B 9006 BLEQU 1 : 
54 2 9a 0000 MOVZBL (TRAN _POINT)+, R4 ; 
0 4 01 9008 CMPL R4, QUOTE : 
4 13 0000 BEQL =‘ 12$ : 
53 i) O0E INCL  P_LEN : 0899 | 
F 11 000E BRB : 
A BB OODES 12$:  PUSHR #*M<R1,R3> > 0906 
E D4 OOE6 CLRL = (SP) : 
B DD OO0E PUSHL EDTSS6 MESSAGE _LINE F 
000000006 00 4 FB 6 EA CALLS , EDT$SOUT_MSG ; 
1 DD O00F PUSHL a" : 0907 | 
00000006 00 1 F F3 CALL a. eEDTSST ENBLAUTREP ; 
0000 0G ° 3 6¢ OFA ADDL gDIs T$SG_TIN ECHOPOS : 9908 | 
0 06 01 p 101 MOVL ore nit $G_TIR_ECROFLG > 0909 
04 AF F 00108 PUSHAB : 0914 | 
000000006 00 01 FB 001 CALLS #1, EDT$S$TI_INPCH : 


i) 
EDTSKEYFMTSTR EDTSKEYFMTSTR = translate a key strin 1b-se -1984 43:4 AX-11 Bliss-32 V4.0-74 Page 11. 
nites EDTSSTRN_KSTR = translate a hey string 1 ~300n 138% 99:53:33 LED T SREIKEVFRTSTR: BL I. ns 3) 
50 112 TSTL OR : 3; } 
14 8 114 BEQL ne, : Me 
08 AE OF 116 PUSHAB TERM + 0916 | 
56 0D 0011 PUSHL ALT_TERM : 34 
OC AE Dd 00118 PUSHL : | 
000000006 09 Q FB 11 CALLS #3, EDTSSKPAD_INP : s 
p 1 CMPL STATUS, #2 : 0918 Fe | 
04 : 1 BNEG 4 : | 
50 2 } 120A 138: MOVL #2, RO : | 
4 00120 RET : YS) 
39 b3 O12E 148: TSTL STATUS : 0920 ee 
: 1 1 BNEG : | 
000000006 99 0 FB 001 CALLS @# EDTS$SC NONREVID + 0926 oe 
000000006 i p O15 HOVE Df$$G_CS_LRO, RO : 0928 ; 
000000006 00 oD O12 PUSHL EDT$$G_CUR_COL : ; | 
50 DD 14 PUSHL RO : 4 
000000006 0 0g FB OO14A CALLS #2, EDT$$SC_POSCSIF : ie 
6 68 9E O19! 15$:  MOVAB EDTS$T_CMD_BUF, EDTSSA_CMD_BUF > 0930 ; 4 
6A $8 9E 00154 MOVAB EDTSS$TCMD-BUF, EDTSS$A~CMD~END + 0931 os 
1 11 197 BRB 3$ + 0932 BS 
7E 04 00159 16$:  CLRL -<SP) : 0939 at] 
6 DO 00158 PUSHL €DT$$G_MESSAGE_LINE : as 
000000006 00 FB 90190 CALLS #2, EDT$$SC_POSCSIF : ee 
000000006 00 0 FB 00164 CALLS #0, EDTS$SOUT_FMTBUF : 0940 | 
D 11 00168 BRB 18$ > 086 | 
0c AC DD 00160 17$:  PUSHL ECHO + 094 | 
7E 82 9A 0170 MOVZBL (TRAN _POINT)+, -(SP) : : )) 
000000006 00 02 FB 0017 CALLS #2, EDTSSPUT_CMDCH : ES] 
FF18 31 O017A 18$: BRW 4$ > 0844 | 
50 67 DO 0017) 19$: MOVL EDTSSA_CMD_BUF, RO : 0952 4 
2E FF AO 91 9180 CMPB Os =1(RO) > #48 : ee 
48 if 01 BNEQ 24$ : 4 
67 D? 00186 DECL EDTSSA CMD _BUF + 0955 int 
0D 0c aC E9 00188 BLBC ECHO : 0957 Ba) 
50 67 DO 0018C MOVL EDTS$$A_CMD_BUF, RO : fay 
7E 60 9A 0018F MOVZBL (RO), = : | 
000000006 00 01 FB 00192 CALLS #1, EDTSS$TI_DELK : | 
01 DD 00199 20$: PUSHL #1 : 0967 ap 
03 DD 00198 PUSHL #3 : 7 
FES7 CF 9F 0019D PUSHAB  P.A : ) 
14 AE DD ial PUSHL TERM : a | 
69 04 FB 1A4 CALLS #4, EDTSSTST_KEYDEF ; 3 
11 50 € O1A7 LBS =—s«aRO. 218 ; | 
01 DD OO1AA PUSHL > 0968 ted 
4 pp O1AC PUSHL #4 ; 3] 
FEGA CF 9F OOTA PUSHAB P.AAC F 5 | 
14 AE DD 001B PUSHL TERM ; : 
69 94 FB 1B CALLS #4, EDISSTST_KEYDEF ; : 
C 0 3 1B8 BLBC = RO, 228 : : 
E 08 AC 7D 001BB 21$ OVO EXPAND, -(SP) : 0970 : 
10 AE DD 001BF PUSHL : : 
FE39 =sCF 03 F Ce CALLS #3, EDTS$$TRN_KSTR ; : 
A : dO O01C 338: MOVL EDTS$SA_CMD_BOF, EDTS$A_CMD_END : 097 : 
0 1 p 1CA 23$: MOVL #1, RO > 097 : 
4 001CD RET F : 
50 D4 OOICE 24$ CLRL =. RO : 0976 : 
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WOusOOO '*OEBISSERNTKSIN. -"tronstate a key string ifoseo-tgge 13:33:3) | HEDT SRedeEtratstRioL 124 ae 
04 00100 RET ; 0977 
; Routine Size: 465 bytes, Routine Base: _EDTSCODE + 0010 


; 408 978 1 
; 409 979 1 !<BLF/PAGE> 


COMMAND QUALIFIERS 


465 code + 16 data bytes 
: me: :23.6 
; Elapsed Time: 09: 8-0 
; Lines/CPU Min: 

; Lexemes/CPU-Mi rif 

; Used: 160 pages 
; Compilation Complete 


12 G 

EDTSKEYFMTSTR EDTSKEYFMTSTR = translate a key strin 16-Sep-19 AX-11 Bliss-32 V4.0-74 
704-000 EDTSSTRN_KSTR = translate a key string 14-$ Sep 1 1984 ” 04 ter. SRCIKEYFMT aisYRieL {si 

411 0980 1 END ! of module EDTSKEYFMTSTR 

41g 036) 1 sv: 

41 982 0 ELUDOM 

PSECT SUMMARY 
Name Bytes Attributes 

_EDTSCODE 481 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
‘aie ae ee ee ee Syabols soce-ee- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 6 1 40 00:00.2 
; “$255$DUA28:(EDT.S C)P $.L32;1 2 1 50 7 00:00.1 
; “Sees tUASB EDT SReISUPPORTE. Laoei 34 5 14 7 00:00.1 
: 7$255$DUA28:CEDT.SRCJSUPPORTS.L 32; 1 2 1 50 5 00:00.1 
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